home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESFSEL1.S < prev    next >
Text File  |  1993-03-26  |  937b  |  42 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* FSel manager routine (old-style fsel'er)..
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; fsel_input
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _fsel_input
  20. _fsel_input:
  21.  
  22. ;          .cargs    #8,ptr1.l,ptr2.l,button.l
  23.  
  24. ptr1            =    8
  25. ptr2            =    12
  26. button            =    16
  27.  
  28.           link        a6,#-4
  29.  
  30.           move.l    #$5A000202,d0       ; AControl  90,0,2,2
  31.  
  32.           moveq.l    #-4,d1
  33.           lea        ptr1(a6),a0       ; -> addrin
  34.           jsr        aes_call
  35.  
  36.           moveq.l    #-4,d1
  37.           lea        button(a6),a1
  38.           jmp        (a0)
  39.  
  40. ;          end of code
  41.  
  42.